home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Graphics / X-TRACE67.lzh / XTRACE R67 / X-TRACE / X-TRACE.rsrc / TEXT_701_rox.xt3.txt < prev    next >
Text File  |  1999-01-31  |  2KB  |  109 lines
  1. xtrace    "ROX; Rokkaku-Daioh data direct import script"
  2. {
  3.     pragma    smooth_with_bound=off;
  4.  
  5.     nvar    rox_vsmooth=120, rox_asmooth=-1;
  6.     nvar    rox_line_thick=0.;
  7.     nvar    rox_refl_rate=1;        // in percent(%)
  8.  
  9.     // determin reflection and high-light parameter
  10.     var        rox_nrefl=8;
  11.     var        rox_rr.refl,rox_rr.high,rox_rr.beta;
  12.     rox_rr.refl=rox_refl_rate/100;
  13.     if (rox_refl_rate=0)
  14.     {
  15.         rox_nrefl=0;
  16.         rox_rr.high=0;
  17.         rox_rr.beta=0;
  18.     }
  19.     elif (rox_refl_rate=1)
  20.     {
  21.         rox_nrefl=0;
  22.         rox_rr.high=30;
  23.         rox_rr.beta=0.4;
  24.     }
  25.     else
  26.     {
  27.         rox_rr.high=1;
  28.         rox_rr.beta=0.2;
  29.     }
  30.  
  31.     smooth    rox_vsmooth,rox_asmooth : model
  32.     {
  33.         nmacro    rox_file_name="rox.rok";
  34.         static : roku    $(rox_file_name) =
  35.         {
  36.             roku_line    rox_line_thick;
  37.             roku_refl    rox_rr.refl,rox_rr.high,rox_rr.beta;
  38.         };
  39.         ifvar    roku_glid
  40.         {
  41.             attr    green=
  42.             {
  43.                 color    0,1,0;
  44.                 diff    1,0;
  45.             };
  46.             procedure    glin    x1,y1,z1, x2,y2,z2
  47.             {
  48.                 para    x1,y1,z1;
  49.                 leverz    x2 - x1,y2 - y1,z2 - z1;
  50.                 sim        1,1,sqrt (sq (x2 - x1) + sq (y2 - y1) + sq (z2 - z1));
  51.                 boundary    oval    0,0,0.5, 0,0,1, 0.5*sqrt (3),sqrt (3)
  52.                 {
  53.                     and
  54.                     {
  55.                         plane    0,0,1, 0,0,1;
  56.                         cylind    0,0,0, 0,0,1, 0.005;
  57.                         plane    0,0,0, 0,0,-1;
  58.                     }
  59.                 }
  60.             }
  61.  
  62.             glin    0.5,0,0.5, -0.5,0,0.5;
  63.             glin    0.5,0,-0.5, -0.5,0,-0.5;
  64.  
  65.             glin    0.5,0.5,0.25, -0.5,0.5,0.25;
  66.             glin    0.5,0.5,0, -0.5,0.5,0;
  67.             glin    0.5,0.5,-0.25, -0.5,0.5,-0.25;
  68.  
  69.             glin    0.25,0.5,0.5, 0.25,0.5,-0.5;
  70.             glin    0,0.5,0.5, 0,0.5,-0.5;
  71.             glin    -0.25,0.5,0.5, -0.25,0.5,-0.5;
  72.  
  73.             glin    0.5,0.5,0.5, -0.5,0.5,0.5;
  74.             glin    -0.5,0.5,0.5, -0.5,-0.5,0.5;
  75.             glin    -0.5,-0.5,0.5, 0.5,-0.5,0.5;
  76.             glin    0.5,-0.5,0.5, 0.5,0.5,0.5;
  77.  
  78.             glin    0.5,0.5,-0.5, -0.5,0.5,-0.5;
  79.             glin    -0.5,0.5,-0.5, -0.5,-0.5,-0.5;
  80.             glin    -0.5,-0.5,-0.5, 0.5,-0.5,-0.5;
  81.             glin    0.5,-0.5,-0.5, 0.5,0.5,-0.5;
  82.  
  83.             glin    0.5,0.5,0.5, 0.5,0.5,-0.5;
  84.             glin    -0.5,0.5,0.5, -0.5,0.5,-0.5;
  85.             glin    -0.5,-0.5,0.5, -0.5,-0.5,-0.5;
  86.             glin    0.5,-0.5,0.5, 0.5,-0.5,-0.5;
  87.         }
  88.     }
  89.  
  90.     nvar    rox_nshdw=0, rox_distr=0;
  91.     cond    0,1, rox_nrefl,rox_nshdw,rox_distr;
  92.     screen    fwid,fwid,fbit;
  93.  
  94.     nvar    roku.ar=1,roku.ag=1,roku.ab=1;
  95.     ambi    1, roku.ar,roku.ag,roku.ab, 0.3, 0,0;
  96.  
  97.     screwy    roku.pp*180/PI;
  98.     screwx    roku.pq*180/PI;
  99.     screwz    roku.pr*180/PI;
  100.     para    -roku.dx,-roku.dy,-roku.dz;
  101.     sim        1/roku.bx,1/roku.by,1;
  102.     view    0.8, 0,-1,0, 0,0,1, 0,0,-1, 0.05;
  103.  
  104.     nvar    roku.lx=0.574988908,
  105.             roku.ly=0.511101252,
  106.             roku.lz=0.638876565;
  107.     inf        -roku.lx,-roku.ly,-roku.lz, 0.267, 0.7,0.7,0.7;
  108. }
  109.